   1 .
   2 .
   3 .CIRCLES
   5 .BY RON PICARDI
  10 clear 
  20 print ;print ;print 
  30 print "      ALL CIRCLES"
  40 print 
  50 print "     POP   ART"
  60 gosub 1000
  65 FC=BC
  66 BC=15
  70 for A=1to 150
  80 X=X+1
  90 gosub 1100
 100 next A
 105 gosub 1000
 110 for A=1to 75
 120 X=X+2
 130 gosub 1100
 140 next A
 150 gosub 1000
 160 for A=1to 50
 170 X=X+3
 180 gosub 1100
 190 next A
 200 gosub 1000
 210 for A=1to 25
 220 X=X+6
 230 gosub 1100
 240 next A
 250 for A=1to 500
 260 next A
 270 gosub 1200
 280 for A=1to 80
 290 Y=Y+1
 300 gosub 1300
 310 next A
 320 gosub 1200
 330 for A=1to 40
 340 Y=Y+2
 350 gosub 1300
 360 next A
 370 gosub 1200
 380 for A=1to 20
 390 Y=Y+3
 400 gosub 1300
 410 next A
 440 gosub 1000
 450 Y=3;C=2
 460 gosub 1400
 470 gosub 1500
 480 Y=6;C=3
 490 gosub 1400
 500 gosub 1500
 510 Y=10;C=4
 520 gosub 1400
 530 gosub 1500
 540 Y=15;C=5
 550 gosub 1400
 560 gosub 1500
 570 Y=21;C=6
 580 gosub 1400
 590 gosub 1500
 600 Y=28;C=7
 610 gosub 1400
 620 gosub 1500
 630 Y=36;C=8
 640 gosub 1400
 650 gosub 1500
 655 Y=36;C=8
 656 X=0;B=0
 660 for A=1to 40
 670 line 0,0,0
 680 if X>0C=C-1
 690 if X<0C=C+1
 700 if Y>0B=B-1
 705 X=X+C
 710 if Y<0B=B+1
 715 Y=Y+B
 720 line X,Y,1
 730 &(17)=Xmul 3;&(18)=Ymul 3
 740 next A
 750 gosub 1500
 760 clear ;&(22)=255
 770 X=0;Y=32;B=0;C=10
 780 for A=1to 370
 790 if X>0C=C-1
 800 if X<0C=C+1
 810 if Y>0B=B-1
 820 if Y<0B=B+1
 830 X=X+C;Y=Y+B
 840 box X,Y,2,2,1
 850 &(17)=Xmul 3;&(18)=Ymul 3
 860 next A
 870 goto 2000
1000 for A=1to 500
1001 next A
1002 clear 
1003 &(22)=255
1010 X=-75;C=8;Y=0
1015 &(22)=255
1020 line -75,0,0
1025 FC=rnd (32)mul 8-2;BC=rnd (32)mul 8+2
1030 return 
1100 &(17)=Y;&(18)=-Y
1110 if Y>0C=C-1
1120 if Y<0C=C+1
1130 Y=Y+C
1140 line X,Y,0;line -X,-Y,1
1150 return 
1200 for A=1to 500
1201 next A
1202 clear 
1203 &(22)=255
1210 X=0;Y=-40;C=10
1220 FC=rnd (32)mul 8-2;BC=rnd (32)mul 8+2
1225 line X,Y,0
1230 return 
1300 &(17)=X;&(18)=-X
1310 if X>0C=C-1
1320 if X<0C=C+1
1330 X=X+C
1340 line X,Y,0;line -X,-Y,1
1350 return 
1400 X=0;B=0
1405 line X,Y,0
1410 for A=1to 40
1420 if X>0C=C-1
1430 if X<0C=C+1
1440 if Y>0B=B-1
1450 if Y<0B=B+1
1460 X=X+C;Y=Y+B
1470 &(17)=Xmul 2;&(18)=Ymul 2
1480 line X, Y,1
1490 next A
1495 return 
1500 for A=1to 500
1510 next A
1520 FC=rnd (32)mul 8-2;BC=rnd (32)mul 8+2
1530 return 
2000 print "    POP ART"
2002 NT=3
:return 
